﻿<Serializable()> _
Public MustInherit Class Duvida
    Inherits BaseDominio

    Private _descricao As String
    Public Overridable Property Descricao() As String
        Get
            Return _descricao
        End Get
        Set(ByVal value As String)
            _descricao = value
        End Set
    End Property

    Private _autor As String
    Public Overridable Property Autor() As String
        Get
            Return _autor
        End Get
        Set(ByVal value As String)
            _autor = value
        End Set
    End Property

    Private _status As StatusDuvida
    Public Overridable Property Status() As StatusDuvida
        Get
            Return _status
        End Get
        Set(ByVal value As StatusDuvida)
            _status = value
        End Set
    End Property


#Region "Negocio"

    Protected Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Duvida
        Return MyBase.DuvidaDao.Buscar(_id)
    End Function

    Public Overridable Sub Salvar()
        MyBase.DuvidaDao.Salvar(Me)
    End Sub

#End Region

End Class
